home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / dialogic.zip / DIALOGIC.BI < prev    next >
Encoding:
Text File  |  1990-01-31  |  1.2 KB  |  48 lines
  1. 'This TYPE definition is exactly 256 bytes.  If the /AH switch is
  2. 'used when entering QB or when compiling with BC then all your
  3. 'dialog boxes will be held outside of QuickBASIC 64K data segment.
  4. 'Your arrays must be $DYNAMIC.
  5.  
  6. DECLARE SUB DiaLogic (DB() AS ANY, LB() AS ANY, Action%, Focus%, Ky$)
  7. DECLARE SUB InitMouse (There%)
  8. DECLARE SUB ShowCursor ()
  9. DECLARE SUB TextCursor (FG%, BG%)
  10. DECLARE SUB HideCursor ()
  11.  
  12. TYPE DialogType
  13.    BorderType AS INTEGER
  14.    Code AS INTEGER
  15.    Default AS INTEGER
  16.    Height AS INTEGER
  17.    ItemLength AS INTEGER
  18.    KeyColor AS INTEGER
  19.    Link AS INTEGER
  20.    NumberOne AS INTEGER
  21.    NumberTwo AS INTEGER
  22.    PrimaryColor AS INTEGER
  23.    SecondaryColor AS INTEGER
  24.    SelectedColor AS INTEGER
  25.    StarColor AS INTEGER
  26.    Text AS STRING * 82
  27.    TextColor AS INTEGER
  28.    TextString AS STRING * 134
  29.    TextX AS INTEGER
  30.    TextY AS INTEGER
  31.    Wdth AS INTEGER
  32.    WindowColor AS INTEGER
  33.    X AS INTEGER
  34.    Y AS INTEGER
  35. END TYPE
  36.  
  37.  
  38. 'These array types are for internal string arrays.  Each is a total of a
  39. '  power of 2-bytes so that the strings may properly cross 64K blocks.
  40.  
  41. TYPE DialogText
  42.    Text AS STRING * 256
  43. END TYPE
  44.  
  45. TYPE DialogTextSmall
  46.    Text AS STRING * 128
  47. END TYPE
  48.